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APPLE- I I HI -RES GRAPHICS SUBROUTINES 



The APPLE-II computer comes with a high-resolution (hereafter 
'HI -RES') color graphics display mode of 280 horizontal by 192 
vertical resolution. Because 8K bytes of RAM are dedicated solely 
to maintaining the HI-RES display, a minimum 12K byte system 
(configured for EI-RES) is required to use this mode. For practical 
reasons, 16K bytes is the strongly recommended minimum, A 6502 
machine language subroutine package has been developed to simplify 
efficient use of the APPLE-II HI-BES display for assembly language 
and BASIC programmers. The routines for initializing the HI-RES 
display, plotting points, drawing lines, and drawing shapes are 
described herein. 



USING THE HI-RES SUBROUTIKES 



Despite the fact that HI-RES graphics commands are not built 
into APPLE-II BASIC, a convenient scheme for referencing the sub- 
routines and their parameters by name has been devised, as illus- 
trated below. 



TRADITIONAL METHOD 

OF CALLING 
MACHINE LANGUAGE SUBROUTINES 



IMPROVED METHOD 



> POKE 800, X MOD 256 

> POKE 801, X / 256 

> POKE 802, Y 

> POKE 812, C (color) 

> CALL 2834 



> XO = X 

> YD = Y 

> COLR = C 

> CALL PLOT 



The first statement of a program using the HI-RES subroutines 
should be as follows 

XO = YO = COLR = SHAPE = ROT = SCALE 

The purposes of this statement are to define a line number 
(necessary when later appending the KI-RIS PREFIX program) and to 
enter the first 6 BASIC variable names in the symbol table in a 
fixed sequence. When executed, each of the 6 parameters will be 
assigned storage at fixed locations relative to the address contained 
in the BASIC 'start of variables' pointer, LOMEM , making them readil^ 
accessable by the KI-RES subroutines. 



DifJerent parameter names may be used provided that they retain 
the same number of characters. This is necessary to insure that 
the storage locations for each relative to LOMEM do not change. 
For example, the name XX could be used in place of XO but XCOORD 
could not. 

The parameters SHAPE, ROT, and SCALE are used only by the HI -RES 
shape draw subroutines and may be ommitted from programs using only 
the PLOT and LINE features. Omrnitting unnecessary variable definitions 
is one method of enhancing the overall performance of some BASIC 
programs on the APPLE-II and is thus desirable. 

FIRST LINE OF PROGRAMS NOT USING 
THE SHAPE DRAW SUBROUTINES 

XO = YO = COLR 

After the parameter names have been defined, the RI-RES subroutine 
names themselves may be defined and assigned corresponding subroutine 
entry addresses as values. Calling subroutines by name is preferable 
to calling them by entry address- because the entry addresses may 
vary in future versions of the HI-RES subroutines, and names are 
better self documenting. 



Absolute CALL 



CALL py name 
5 INIT = 2048 



100 CALL 2048 100 CALL INIT 



200 CALL 204S 200 CALL INIT 

In the above CALL by name example, should the INIT subroutine 
entry address change to -12288, only line 5 need be changed. 
In the absolute CALL example, lines 100 and 200 (and any others 
referencing the INIT subroutine) will have to be changed. The 
self documenting advantage of the CALL by name example should 
be apparent . 

The following statement lists all HI-RES subroutine entry 
initializations available to BASIC programs. Other names may be 
used at the programmer's discretion. 

5 INIT = 2048 : CLEAR = 2062 : BKGND = 2865 : 

POSN = 2809 : PLOT = 2830 : LI.\E = 2836 : 

DRAW = 2871 : DRAWl = 2874 : XDRAW = 2884 : 
XDRAWl = 2887 : FIND = 2556 



The allowable color specif icatioa values may also be referenced 
by name, if the initialization statement below is included in your 
program. Note that * GREEN' is preceeded by 'LET' to avoid a syntax 
error due to confusion with the GR command. 



If your APPLE-II has been modified for additional HI-RES colors, 
the following assignments are also valid. 

8 ORANGE ^ 170 : BLUE = 213 : BLACK2 = 128 : ^?HITE2 = 255 

Unnecessary variable definitions should be avoided as they 
will slow some programs. Therefore, a program should not define 
VIOLET = 85 unless it uses the color VIOLET. The example below 
illustrates condensed initialization statements for a program using 
only the INIT, PLOT, and DRAW subroutines, and the colors GREEN 
and WHITE. 



7 BLACK = 



LET GREEN =42 



VIOLET = 85 



\fHITE = 127 



XO = YO = COLR = SHAPE = ROT = SCALE 



5 INIT 



= 2048 



PLOT 2830 



DRAVr = 2871 



7 LET GREEN 



= 42 



WHITE = 127 



In extreme cases any of the following techniques will further 
enhance program performance. 

(1) Omit the color and subroutine name initializations. 
Refer to colors and subroutines by value, not name. 
This does not apply to the parameter references. 

(2) Define the most frequently used program variable names 
prior to the subroutine 'name and color name initializations 
(lines 5 and 7 in the prior examples). The example below 
will speed up programs extensively referencing variables 

I, J, and K. 

XO = YO = COLR = SHAPE = ROT = SCALE 
2 I = J = K 

5 INIT = 2048 : CLEAR = 2062 : BKGND = 2865 : 

POSN = 2809 etc. 

7 BLACK = : LET GREEN = 42 : etc. 

(3) Use the parameter names as program variables when possible. 
Because they are defined first, the parameters are the most 
quickly accessed BASIC variables. 



INITIALIZATION SUBROUTINES 

The normal HI-RES display consists of a 280 horizontal by 160 
vertical grid above 4 lines of text and is initiated with the 
BASIC comioand below. 

> CALL INIT 

The INIT subroutine also clears the HI-RES display and initialize: 
other HI-RES subroutines. After calling INIT the programmer may 
eliminate the 4 line text display, extending the HI-RES display 
to a 192 vertical resolution, with the . following command: 

> POKE -16302,0 

The 4-line text display may be restored at any time as follows; 

> POKE -16301,0 

Valid X-coordinates vary from (leftmost) to 279 (rightmost) 
Valid Y-coordinates vary from (topmost) to 159 or 191 (bottommost") 
depending on whether or not the 4 line text display is enabled. 

At any time after INIT has been called, the entire HI-EES 
display may be cleared with the CLEA.R subroutine as shown below. 

> CALL CLEAR 



The HI-RES display may be quickly set to any background color 
with the BKGND subroutine. BDGND expects a color specification, 
in the BASIC variable COLR. The example below turns the entire 
HI-RES display green. 

XO = YO = COLR 
5 INIT = 2048 : BKGND = 2865 : 
LET GREEN =42 

10 CALL INIT 

20 COLR = GREEN 

30 CALL BKGND 

40 END 

Only the colors previously mentioned (BLACK, GREEN, VIOLET, 
and WHITE) may be specified in COLR. Do not make up your own. 
For example, COLR = YELLOW is not allowed. 

If COLR is greater than 255 when BKGND is called then a range 
error will occur. The message '(beep) *** RANGE ERR' will be 
displayed and the program will halt. 
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POINTS AND LINES 

The PLOT subroutine is used to plot a single point of the 
HI -RES display in a specified color. COLR must be less than 255, 
XO must be to 279, and YO must be to 191 when PLOT is called 
or a range error will result and the program will halt. The program 
below plots one white dot at X-coordinate 35, Y-coordinate 55 
(35,55) and one at (85,90). 

XO = YO = COLR 

5 INIT = 2048 : PLOT = 2380 : V?HITE = 127 
10 CALL INIT 
20 COLR = WHITE 

30 XO =35 : TO = 55 : CALL PLOT 
40 XO = 85 : YO = 90 : CALL PLOT 
50 END 

Connecting any two coordinates with a straight line is almost 
as easy as plotting points. After plotting one endpoint as shown 
in the example above, the other endpoint is specified in XO and YO 
and the the LINE subroutine is called. As with the PLOT subroutine, 
COLR must be less than 256, XO roust be to 279, and YO must be 
to 191 or a range error will result and the program will halt. 
The following example draws a white line from (35,40) to (170,100), 
a green line from (270,10) to (5,145), and a violet line from 
(20,70) to (190,110). 
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XO = 


YO = COLR 






5 


INIT 


= 2048 : 


PLOT = 2830 : LINE = 


2836 : 




LET GREEN =42 


: VIOLET = 85 : WHITE = 127 


10 


CALL 


INIT 






20 


COLR 


= WHITE : 


XO = 35 : YO = 40 : 


CALL PLOT 


25 


XO = 


170 : YO 


= 100 : CALL LINE 




30 


COLR 


= GREEN : 


XO = 270 : YO = 10 


: CALL PLOT 


35 


XO = 


5 : YO = 


145 : CALL LINE 




40 


COLR 


= VIOLET 


: XO « 20 : YO = 70 


: CALL PLOT 


45 


XO = 


190 : YO 


=110 : CALL LINE 




50 


END 









The following example illustrates that the parameter variabl 
may be used as FOR loop indices. Horizontal violet lines are 
drawn on a green "background at every tenth vertical coordinate. 

XO = YO = COLR 

5 INIT = 2048 : BKGND = 2865 : PLOT = 2830 : 
LINE = 2836 : LET GREEN = 42 : VIOLET = 85 

10 CALL INIT 

20 COLR = GREEN : CALL BKGND 

30 COLR = VIOLET 

40 FOR YO = 5 TO 155 STEP 10 

50 XO = 10 : CALL PLOT : XO = 270 : CALL LIKE 

60 NEXT YO : END 
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Multiple lines which are connected endpoint to endpoint may be 
drawn without intervening PLOT calls. In the example below, a 
white line connects (10,20) to (250,70), and green line connects 
(250,70) to (20,150), and a violet line connects (20,150) to (260,30). 

XO = YO = COLR 

5 INIT = 2048 : PLOT = 2830 : LINE = 2836 : 
LET GREEN = 42 : VIOLET = 85 : WHITE = 127 

10 CALL INIT 

20 COLR = WHITE : XO = 10 ; YO = 20 : CALL PLOT 

30 XO = 250 : YO = 70 : CALL LINE 

40 XO = 20 : YO = 150 : COLR = GREEN : CALL LINE 

50 XO = 260 : YO = 30 : COLR = VIOLET : CALL LINE 

60 END 



CAUTION 



Do not attempt to draw a line prior to the first PLOT. 
Because the first endpoint has not been defined, the line may 
be drawn in random memory locations, not necessarily restricted 
to the screen memory. 



DRAWING SHAPES 



Up to 255 different shapes may be defined, edited, and saved 
on a single tape 

After loading the HI-RES subroutines such a 'shape tape' (containing 
a 'shape table') may be read as follows. 

1. Position shape tape in recorder. 

2. Load shape tape with the BASIC command: 

> CALL 3O01 

3. Start recorder (PLAY). 

The above command immediately begins 
reading tape . 

4. VPait for two beeps. 

Shape tables always load beginning at address $000 with the 
HI-RES subroutines in locations $800-$BFF. Upon loading a shape 
table, the BASIC 'start of variables' pointer LOMEM is set to 
contain the address of the location immediately following the 
last shape table byte. 

If not enough free memory is available to contain the shape 
table then the message '(beep) *** MZM FULL ERR' will be displayed. 
If no beep is heard when loading a shape tape then something is 
probably wrong with the tape connection and you will have to hit 
RESET and type C^ (Control-C) to reenter BASIC. If you hear a single 
beep and then the system hangs it means your shape tape is probably 
bad and a:fter hitting RESET and typing C- you may have to restore 
the LOMEM setting to SCOO (3072) as :oil:v.s. 

> LOMEM : 20' 2 



The DRA^V subroutine is used to display any of the predefined 
shapes included in the current shape table. The origin or 'beginning 
point ' of the shape is specified in XO and YO and the color is speci- 
fied in COLR as with PLOT. The shape number desired is specified 
in SHAPE. For example, SHAPE = 3 specifies that the third shape 
of the current shape table is to be drawn. A scale factor is speci- 
fied in the variable SCALE and a rotation in ROT. A scale factor 
of 4 implies a shape 4 times the defined size. A scale factor 
of is always interpreted as 256. 

Rotations 



ROT=0 (no rotation) 



R0T=48 (270 deg. CW) 




R0T=16 (90 deg. CV) 



R0T=32 (180 deg.. CW) 



COLR must be to 255, XO must be to 279, YO must be to 
191, ROT must be to 255 (due to MOD 64 arithmetic. R0T=64 is 
equivalent to ROT=0), SCALE must be to 255, and SHAPE must be 
greater than zero and less than or equal to the current nuniber 
of shape table shapes or else a range error will result when 
DRAW is called and the program will halt. In other words, the 
programmer will always be notified if HI-RES subroutines are called 
•vith any invalid parameters. 



The following program example draws shape number 3 in white 
at a 90 degree clockwise rotation and scale factor of 2. The origin 
is at (140,80). It is assumed that a shape table with at least 
3 shape definitions has been loaded. 

XO = YO = COLR = SHAPE = ROT = SCALE 
5 INIT = 2048 : DRAW = 2871 
7 WHITE = 127 
10 CALL INIT 

20 XO = 140 : YO = 80 : COLR = WHITE 
30 SHAPE = 3 : ROT = 16 : SCALE = 2 
40 CALL DRAW 
50 END 

The XDRAW subroutine is identical in operation to the DRAW 
subroutine except that the defined shape is exclusive-ored (EX-OR'd) 
onto the screen. The EX-OR operation complements all screen 
memory bits of the shape, O's become l.'s and vice-versa. No color 
need be specified. A unique property o^ XDRAW is that 2 successive 
calls with identical parameters will first cause a shape to be 
drawn (in white) and then erased. The following program example 
causes the rotation of shape number 3 to track paddle 0. XDR.AVi' 
is used for both the draw and erase operations. Although the 
color is not optional, the variable COLR may not be ommitted from 
zhe parameter declarations (line 0) or the SH.^iPE, ROT, and SCALE 
pararrieters will not be assigned storage in their standard locations 
.-•=:] at ive to LOMEM. 



XO = YO = COLR » SHAPE = ROT = SCALE 
5 IKIT = 2048 : XDRAW = 2884 
10 CALL INIT 

20 XO = 140 : YO = 80 : SHAPE =3 : SCALE = 2 

30 R = : GOTO 60 : REM DRAW FIRST SHAPE 

40 R = PDL(O) : IF R = ROT THEN GOTO 30 

50 CALL XDRAW : REM ERASE AT OLD ROT 

60 ROT = R : CALL XDRAW : REM DRAW AT NEW .ROT 

70 GOTO 40 : REM CHECK FOR ROT CHANGE 

80 END 

DRAWl and XDRAWl are identical to DRAW and XDRAW respectively 
except that the most recently plotted (or drawn) point serves as 
the shape origin and the current color is not updated. Thus 
XO, YO, and COLR are not specified. 



If you draw a shape and then wish to draw a line from the 
final plot position of that shape to a fixed coordinate, you may 
do so. After drawing the shape, however, you must call FIND 
prior to calling LINE. The FIND subroutine determines the X-Y 
coordinates of the final shape plot position (or current plot 
position if used after other subroutines) and uses it as the 
beginning endpoint of the following call to LINE. The following 
program example draws a shape and then a violet line from the 
final plot position of the shape lo (10,25), 



XO = YO = COLR = SHAPE = ROT = SCALE 

5 INIT = 2048 : LINE = 2836 : DRAW = 2871 : FIND = 2556 

7 VIOLET 85 : WHITE = 127 

10 XO = 140 : YO = 80 : COLR = WHITE : 

SHAPE = 3 : ROT = : SCALE = 1 : CALL DRAW 

20 CALL FIND 

30 XO = 10 : YO = 25 : COLR = VIOLET : CALL LINE 

40 END 
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COLLISIONS 



Overlapping shapes define points of 'collision'. The DRAW and 
XDRAW subroutines return a collision count in the absolute location 
$32A (810 decimal). The collision ecu... will be constant for a 
fixed shape, rotation, scale, and baclcground, provided that no 
collisions with other shapes are detected. The difference betu'een 
the 'standard' collision value and the encountered value (while 
drawing a shape) is a true collision indicator. 



100 CALL DRAW 

110 COUNT = PEEK (810) 
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APPENDING THE HI -RES PRE? IX 



The HI-RES PREFIX program may be permanently appended to any 
BASIC programs you write, making a 2-step LOAD unnecessary. If 
you have the APPLE-II RENUMBER /APPEND program then treat the user- 
written program as the one with greater line numbers (despite the 
fact that it begins with line 0) and the HI-RES PREFIX program as 
the one with smaller line numbers. If you don't have the RENUMBER/ 
APPEND program then the APPEND may done manually as follows: 



1. > LOAD (user program) 

2. > POKE 0, PEEK (76) 

> POKE 1, PEEK (77) 

> POKE 76. PEEK (202) 

> POKE 77, PEEK (203) 
(user program is now hidden) 

3. > LOAD (HI-RES PREFIX program) 

4. > POKE 76, PEEK (0) 

> POKE 77, PEEK (1) 

5. > SAVE (combined program) 
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SUMMARY 



Subroutine 


Calling address 


Parameters 


INIT 


2048 




CLEAR 


2062 




BKGND 


2865 


COLR 


POSN 


2809 


XO, YO, COLR 


PLOT 


2830 


XO, YO, COLR 


LINE 


2836 


XO, YO, COLR 


DRAW 


2871 


XO, YO, COLR, SHAPE, 


DRAWl 


2874 


SHAPE. ROT. SCALE 


XDRA^V 


2884 


XO, YO, COLR, SHAPE, 


XDRAWl 


2887 


SHAPE. ROT, SCALE 


FIND 


2556 




SHAPE .LOAD 


3001 





For NO TEXT display >P0KE -16302,0 

For mixed GRAPHICS/TEXT — >POKE -16301,0 

Select secondary screen display >POKE -16299,0 

Select primary screen display >POKE -16300,0 

Select secondary screen plotting >POKE 806,64 

Select primary screen plotting >?OKE 806,32 

(Defaults are GRAPH ICS /TEXT, primary screen display, 
and primary screen plotting) 

Collision detect (shape draw only) PEEK (SIO) 
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HI -RES PREFIX LOAD 



AFTER LOAD 



AFTER RUN 



PV, LOMEXI — ► 
(normally $800) 



PP 



(start of 
program) 



HI MEM 

(end of 
program) 



USER AREA 



BASIC 
(1 page) 



HI-RES SUBR'S 
(4 pages) 



BASIC 
(1 page) 



USER PROG 
(if any) 



$800- 



$BFF— 
PV, LOMEM* 
($C00) 



PP 



HI -RES SUBR'S 



USER AREA 



USER PROG 
(execution initiated 
at line 0) 



HIMEM 



Kote: A 'page' is 256 bytes 



APPLE- I I BASIC POINTERS 

LOMEM (in $4A, $4B) Contains 'start of BASIC variables' 

address . 



?V (SCC, SGD)- 



-End of BASIC varzacles. Equal to LO'-'.ZM 
if no active variables. 



7'? (^CA, SCB) Start of BASIC zroz^^-- 

if no r^rrcra.-. 



Hlnm S-1D) Z'c, c f ^•. 
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HI -RES PARAMETER LOCATIONS 
(beyond L0MEK5) 



Parameter Locations beyond LOMEM 

XO $05, $06 

YD $OC, $0D 

COLR $15, $16 

SHAPE $1F, $20 

ROT $27, $28 

SCALE $31, $32 



Note: Each parameter is two bytes in length. The 

low-order byte is stored in the lesser of the 
two locations assigned. 
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HI -RES SUBROUTINES SEGMEKT MAP 



CODE $800-$9E8 
DATA $9E9-$9FB 
CODE $9FC-$BFF 



SHAPE TAPE 



Record #1 Contains length of record f?2. T\vo tytes long, 

low-order first. 

Record Gap Minimum of .7 seconds. 

Record rf2 Shape table (see below). 



START 

(in $328, $329) 

START is set 
to $C00 by 
the SHAPE 
LO.AD subr. 



LOJdEM 



0-255 



Unused 



low 



high 



low 



high 



SHAPE DEF 



#1 



SHAPE DEF 
f?n 



BASIC 
VARIABLES 



n = number of shapes 



index to shape 
definition i?l 
relative to START 



index to shape 
definition #n 
relative to START 
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SHAPE DEFINITIONS 



first sh&pe byte 



final- shape byte 



$00 



'end of shape' 
mark 



SHAPE BYTE 



MSB LSB 





X Y 


P X Y 


P X Y 




Third vector 






\ 

Firs 


t vector 



Second vector 



X Y Vector 
+ 

1-^ P = Move without plot 

10 4- P = 1 Plot, then move 

11 ir Third vector is move without plo 

ZEROES ARE IGNORED — If the remaining one or two vectors of 

a shape byte are zeroes then they are 
ignored. 



SAMPLE SHAPE BYTES 
(plot-prior- move vectors are circled) 

;© ©e ee 

X ®\ I \ 

00 100 100 00 101 101 00 110 110 00 111 111 

third first 

$24 $2D $36 $3F 



\ 



00 000 100 
$04 



\ 



00 000 001 
$01 



00 
01 101 101 



$6D 



// \ 

11 111 111 

$FF 



© + 

10 101 100 
$AC 





T 



01 101 001 
$69 




10 010 010 
$92 



INVALID SHAPE BYTES 



e 



- ignored 



ignored 



ignored 



ignored 



00© 
too many 



+1 ignored 



SCREEN MEMORY 



HPAG (in location $326) contSLins the high-order byte of the 
starting address of the current HI-RES display memory in 
which plotting is being done. 



Primary screen memory plotting HPAG = $20 

($2000-$3FFF) 

Secondary screen memory plotting' HPAG = $40 

($4000-$5FFF) 



HBASL and. HBASH (in locations $26 and $27) contain the BASE 
ADDRESS corresponding to the current Y-coordinate . The 
BASE ADDRESS is the address of the leftmost display byte of 
the current line. HBASL and HBASH will track all plotting 
and drawing ' on-the-fly ' . 



Current HPAG 



P Q R 



.0 



MSB 



LSB 



Current Y-Coordinate 



ABCDEFGH 



MSB 



LSB 



HBASH 



PQRFGHCD 



MSB 



LSB 



MSB 



HBASL 



E A B 



B 



LSB 



HNDX (in location $325) contains the byte index from the 
BASE ADDRESS to the current plot byte and is a function of 
the current X-coordinate . 



HNDX = X / 7 (integer divice with truncate) 



4. HMASK (in location $30) contains a bit mask corresponding to 
the current bit position within the current plot byte and is 
a function of the current X-coordinate . The high-order bit 
is always set. 

X MOD 7 HMASK 

(leftmost) $81 

1 $82 

2 $84 

3 $88 

4 $90 

5 $A0 

6 (rightmost) $C0 



5. HCOLOR (in location $1C) is the HI-RES 'on-the-fly' color 

mask. The low-order seven bits are rotated one bit position 
for odd values of HNDX. The high-order bit selects one of 
two color sets on systems modified for extra HI-RES colors. 

HCOLOR 



COLOR 




EVEN 


HNDX 






ODD HNDX 






BLACK 


















































GREEN 








1 





1 





1 








1 





1 





1 





1 


VIOLET 





1 





1 





1 





1 








1 





1 





1 





WHITE 





1 


1 


1 


1 


1 


1 


1 





1 


1 


1 


1 


1 


1 


1 


BLACK2 


1 























1 























ORANGE 


1 





1 





1 





1- 





1 


1 





1 





1 





1 


BLUE 


1 


1 





1 





1 





1 


1 





1 





1 










WHITE2 


1 


1 


1 


1 


1 


1 


1 


1 


1 


1 


1 


1 


1 


1 


1 





HI-RES INTERNAL VARIABLES 

SHAPEL, SHAPEH ($1A, $1B) On-the-fly shape pointer. 

HCOLORl ($1C) On-the-fly color byte. 

COUNTH ($1D) High-order byte of step count for LINT. 

HBASL, HBASH ($26, $27) On-the-fly BASE ADDRESS 

HMASK ($30) On-the-fly BIT MASK. 

QDRNT ($53) 2 LSB's are rotation quadrant for DRAW. 

XOL, XOH ($320, $321) Most recent X-coordinate . Used for 

initial endtsoint of LINE. Updated 
by PLOT, LINE, and FIND, not DRAV. 

YD ($322) Most recent Y-coordinate (see XOL, XOH). 

BXSAV ($323) Saves 6502 X-Register during HI-RES calls 
from BASIC. 

HCOLOR ($324) Color specification to PLOT, POSN. 

HNDX ($325) On-the-fly byte index from BASE ADDRESS. 

HPAG ($326) Starting page of plot memory. Normally 
$20 for plotting in primary HI-RES 
display memory ( $2000-$3FFF) . 

SCALE ($327) On-the-fly scale factoi for DRAW. 

SHAPXL, SHAPXH ($328, $329) Start of shape table pointer. 

COLLSN ($32A) Collision count from DRAW, XDRAW. 



AtSO. P.M., 12/2/1977 



u 


SHAPEL 


EPI 


S I A 


15 


SHAPEH 


EPI 


S IB 


16 


HCOLORl 


EPZ 


SIC 


17 


COUNTH 


EPC 


S ID 


18 


kbasl 


EPZ 


S26 


19 


KBASK 


EPZ 


S27 


20 


HMASK 


EPZ 


S30 


Z\ 


AIL 


EPZ 


S3C 


22 


AIR 


EPZ 


4 3D 


23 


A2L 


EPZ 


S3E 


24 


A2K 


EPZ 


S3F 


25 


LOME ML 


EPZ 


S4A 


26 


LOKEMH 


EPZ 


S4B 


27 


DXL 


EPZ 


S50 


28 


DXM 


EPZ 


S51. 


29 


SHAPEX 


EPZ 


SSI 


30 


DY 


EPZ 


S52 


31 


QDRNT 


EPZ 


S53 


32 


EL 


EPZ 


S54 


33 


£K 


EPZ 


S55 


34 
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S326 


47 


SCAL£ 


EQU 


$327 


48 


SHAPXL 


EQU 


$328 


49 


SHAPXH 


EQU 


S329 


50 


COLLSN 


EQU 


$32A 


5 1 


SHSTRT 


EQU 


$coo 


52 


HIRES 


EQU 


SCD57 


53 


KIXSET 


EQU 


$C053 


54 


TXTCLR 


EQU 


SC050 


55 


MEMfULL 


EQU 


SE36B 


56 


RANGERR 


EQU 


SEE68 


57 


ACADR 


EQU 


$Fl IE 


58 


RD23IT 


EQU 


SFCFA 


59 


READ 


ECU 


SFEFD 


60 


READXl 


EQU 


$FF02 



PAGET 2 

POINTER TO 

SHAPE LIST 
RUNNING COLOR MASK. 

BASE ADR FOR CURRENT 
HI -RES PLOT LINE. 

MONITOR AI. 

MONITOR A2. 

BASIC 'START OF VARS' 

DELTA -X FOR HLIH/ SHAP 

SHAPE TEMP. 

DELTA-Y FOR KLIN/ S.HAS 
ROT QUADRANT (SHAPE). 
ERROR FOR HLIN* 

BASIC START OF PROG. PI 

BASIC END OF VARS PTR. 

BASIC ACC. 

PRIOR X-COORD SAVE 

AFTER KLIN OR KPLOT. 
HL1N,KPL0T Y-COORD SA2 
X-REG SAVE FOR BASIC 
COLOR FOR HPLOT/ HPOSJJ 
HORIZ OFFSET SAVE. 
HI-RES PAGE C$2D NORMi 
SCALE FOR SHAPE/ MOVE. 
START OF 

SHAPE TABLE. 
COLLISION COUNT. 
START OF SHAPE TABLE. 
SVITCH TO HI -RES VIDEU 
SELECT TEXT/GRAPHICS f 
SELECT GRAPHICS MODE. 
BASIC MEM FULL ERROR. 
BASIC PJ^NGE ERROR. 
2-BYTE TAPE READ SETUP 
TVO-EDGE TAPE. SENSE. 
TAPE READ (At . A2> . 
READ VITHOUT HEADER. 



12/2/1977 



PAGEi 3 











63 


* 














64 


* RAM VERSION S500 TO SBFF 












65 


* 














66 


ORG 


S800 




^800x 


A9 


20 




67 


SETHRL LDA 
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YO 
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AD 


29 


03 


543 




LDA 


SHAPXK 


SHAPE TABLE* 


0B6At 


85 


IB 




544 




STA 


SHAPEK 




036 C X 


AO 


20 




545 




LDT 


/S20 




0B6S } 


20 


92 


OS 


546 




JSR 


PBYTE 


SHAPE FROM BASIC. 


0B71 I 


ro 


39 




547 




BSS 


RERRl 




0B73 ; 


a2 


00 




548 




LDX 


/SO 




0375 t 


CI 


lA 




549 




CMP 


CSKAPEL*X) 


> KUM OF SHAPES? 


0377: 


FO 


02 




550 




B£Q 


BDRVX I 




0379 » 


50 


31 




551 




BCS 


HER?.l 


YES^ RANGE ERR. 


37St 


OA 






552 


BDRVX 1 


ASL 


A 




wS7Ci 


90 


03 




553 




BCC 


BDRVX2 




037Et 


£6 


IB 




554 




INC 


SHAPEH 




OBSOt 


18 






555 




CLC 






0B81 t 


A8 






556 


BDRVX2 


TAT 




SHAPE NO. * 2. 


0382 t 


BI 


l.A 




557 




LDA 


( SHAPED ^Y 




0BS4 1 


65 


lA 




558 




ADC 


SKAPEL 




OBB6 X 


AA 






559 




TAX 




ADD 2-SYTE INDEX 


035 7 : 


C8 






560 




INY 




TO SHAPE TABLE 


OBS§t 


Bl 


lA 




561 




LDA 


C SHAPED >Y 


SjART ADR 


038AT 


6D 


29 


03 


562 




ADC 


SKAPXH 


CX LOV^ Y RI>. 


OBBDt 


A8 






563 




TAY 






OBSEl 


68 






564 




PLA 




ROT FROM STACK* 


OBSrt 


60 






565 




RTS 

















BASIC 


PA RAM 


FETCH SUBR'S 
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OB90> 


AO 


16 




568 


PCOLR 


LDY 


/$ I 6 




OS 92 1 


Bl 


AA 




569 


pSVTE 


LDA 


(LOMEKL)^ Y 




0S9A i 


DO 


16 




S (TQ 




BNE 


RERRl 


GET BASIC PARAM. 


r^96 1 


88 






571 




DEY 




CERR IF >2S5> 


U f7i 


Bl 


AA 




572 




LDA 


(LOMEMD/Y 




0B99t 


60 






573 


RTSB 


RTS 






039AI 


8£ 


23 


03 


574 


GETXO 


STX 


BXSAV 


SAVE FOR SASIC- 


0S9D; 


AQ 


05 




575 




LDY 


/$5 




OB^n 


Bl 


AA 




576 




LDA 


CL0MEKL5/ Y 


XO LOW-ORDER BYTE. 


OBAl t 


AA 






577 




TAX 






0BA2t 


C8 






578 




I NY 






0BA3t 


Bl 


AA 




579 




LDA 


CLOKEML)/ Y 


HI -ORDER BYTE. 


DBAS t 


AS 






56Q 




TAY 






0BA6t 


EO 


18 




581 




CPX 


fS IB 




DBAS t 


E9 


01 




582 




SBC 


/S 1 


RANGE ERR IF >279. 


OBAAt 


90 


ED 




5S3 




BCC 


RTSB 




OBAG t 


4C 


65 


EE 


584 


RZRRl 


JKP 


RANGERR 




OBAT t 


AO 


00 




585 


GETYO 


LDY 


rsD 


OFFSET TO YO FROM LOf^l 


OBBl I 


20 


92 


OB 


586 




JSR 


PBYTE 


GET BASIC PARAM YO. 


QS34t 


C9 


CO 




587 




CMP 


/SCO 


CERR IF >191 > 


0BB6 t 


BO 


FA 




588 




BCS 


RERRI 




OBBS I 


60 






589 




RTS 
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9 


P.M. 
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39: 


8E 


23 03 


592 


SHLOAD 


STX 


BXSAV 


JB3C: 


20 


IE FI 


593 




JSR 


ACADR 


03 BF r 


20 


FD FE 


594 




JSR 


pj:ad 


" VARWINQt OPERAND 


OVERFLOV 


IN LINE 


5 95 


0HC2i 


A9 


00 


595 




LDA 


/SKSTRT 


03C4 I 


85 


3C 


596 




STA 


AIL 


03C6 ; 


80 


28 03 


597 




STA 


SRAPXL 


03C9I 


18 




598 




CLC 




03CAI 


65 


CE 


599 




ADC 


ACL 


OECCt 


A8 




60Q 




TAY 




051; Dl 


A9 


OC 


601 




LDA 


/SHSTRT/25 6 


03CF1 


85 


3D 


602 




STA 


AIH 


03D 1 { 


8D 


29 03 


603 




STA 


SKAPXH 


0BD4I 


65 


CF 


604 




ADC 


ACH 


03D6t 


BO 


25 


605 




BCS 


MFULLI 


03D8t 


C4 


CA 


606 




CPY 


PPL 


03DAX 


48 




607 




PHA 




OBDBt 


E5 


CB 


606 




SBC 


PPH 


OBDDt 


68 




609 




PLA 




03DE: 


BO 


ID 


610 




BCS 


KFULLI 


03E0I 


84 


3E 


611 




STY 


A2L 


0SE2I 


85 


3F 


612 




STA 


A2K 


0BE4 } 


C8 




613 




INY 




OSES t 


DO 


02 


614 




BN£ 


SHLODl 


03E7: 


69 


01 


615 




ADC 


/S I 


0BE9} 


84 


4A 


6L6 


SKLODI 


STY 


LOMEKL 


O'^EBi 


85 


4B 


61.7 




STA 


LOKEMH 


EDi 


84 


CC 


6 18 




STY 


PVL 


03EFT 


85 


CD 


619 




STA 


PVH 


OBFl X 


20 


FA FC 


620 




JSR 


RD2BIT 


03F4X 


A9 


03 


621 




LDA 


/S3 


03F6t 


20 


02 FF 


622 




JSR 


READXl 


03F9r 


A£ 


23 03 


623 




LDX 


BXSAV 


03FCI 


60 




624 




RTS 
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BASIC ACC CSCE^CF). 



NOT ENOUGH MEMORY. 



5 SECOND HEADER. 



